home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf4amirc / rexx / say.amirx < prev   
Text File  |  1996-09-17  |  819b  |  12 lines
  1. /* Say.AMIRX
  2. // $VER: Say.AMIRX 4.1 (29.07.96) (MCF Extra command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. //
  5. \\ ** What to do with this file?   Put this script in REXX:
  6. //    then type  /rx say TEXT
  7. \\  to start BOLD        use      \b
  8. //  to start REVERSE     use      \r
  9. \\  to start UNDERSCORE  use      \u
  10. //  then use the same to remove the attribute from the text line
  11. */
  12. parse arg argline;xx=pos('\',argline);aline="";if xx>0 then;do;do until xx=0;yy=xx-1;zz=xx+1;xx=xx+2;rchar=substr(argline,zz,1);if rchar='b' then RepChar='02'x;if rchar='r' then RepChar='16'x;if rchar='u' then RepChar='1f'x;if xx>2 then;aline=aline||left(argline,yy)||RepChar;else aline=aline||RepChar;argline=substr(argline,xx);xx=pos('\',argline);end;if argline ~="" then aline=aline||argline;end;"say "aline;exit